extern int setgpfa_(real *trigs, integer *n, integer *npqr, integer *info);
